home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 02 (1982-10)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 02 (1982-10)(Softdisk)(Side B).do / TRIVIA.bas < prev   
BASIC Source File  |  1996-12-24  |  11KB  |  142 lines
  1. 10  IF  PEEK(768) < >160  OR  PEEK(769) < >0  THEN  PRINT  CHR$(4)"BLOAD REVERSE"
  2. 100  TEXT : HOME 
  3. 110  PRINT "***********************"
  4. 120  PRINT "*                     *"
  5. 130  PRINT "*     TRIVIA QUIZ     *"
  6. 140  PRINT "*                     *"
  7. 150  PRINT "*  BY  CHRIS KOERITZ  *"
  8. 160  PRINT "*                     *"
  9. 170  PRINT "***********************"
  10. 180  VTAB 23: PRINT "HIT A KEY TO START"
  11. 190  FOR I = 1 TO 60: IF  PEEK( -16384) >127  THEN 230
  12. 200  NEXT I: CALL 768,0,22,0,6: GOTO 190
  13. 230  POKE  -16368,0: HOME 
  14. 300  VTAB 5: INPUT "HOW MANY TRIVIA QUESTIONS (1-100)";MA: IF MA <1  OR MA >100  THEN  VTAB 5: CALL  -868: CALL  -956: GOTO 300
  15. 310  DIM NU%(100)
  16. 320 Q = Q +1: IF Q >(MA)  THEN 460
  17. 330 R =  INT( RND(1) *100) +1
  18. 340  IF NU%(R) = 1  THEN 330
  19. 345 NU%(R) = 1
  20. 350  RESTORE : FOR I = 1 TO R
  21. 360  READ A$,A$(1),A$(2),A$(3),A$(4),AN
  22. 370  NEXT 
  23. 380  GOSUB 500
  24. 390  VTAB 17: INPUT "WHICH (1-4) ?";A$:A =  VAL(A$): IF A <1  OR A >4  THEN 390
  25. 400  IF A = AN  THEN RI = RI +1: GOTO 420
  26. 402  PRINT 
  27. 405  PRINT "SORRY THAT'S INCORRECT- THE ANSWER": PRINT "IS ("AN").": GOTO 440
  28. 420  PRINT : PRINT "VERY GOOD. THAT'S RIGHT. HIT A KEY  TO GO TO THE NEXT QUESTION.": POKE  -16368,0: WAIT  -16384,128: POKE  -16368,0: GOTO 450
  29. 440  PRINT "HIT A KEY FOR NEXT QUESTION.": POKE  -16368,0: WAIT  -16384,128: POKE  -16368,0
  30. 450  GOTO 320
  31. 460  TEXT : HOME : PRINT "TRIVIA IS OVER..."
  32. 465  VTAB 5: PRINT "QUESTIONS RIGHT:";RI
  33. 470  VTAB 7: PRINT "QUESTIONS TRIED:";MA
  34. 480  VTAB 12: INPUT "PLAY AGAIN ?";A$: IF  LEFT$(A$,1) = "Y"  THEN  RUN 
  35. 490  END 
  36. 500  TEXT : HOME : INVERSE : FOR I = 1 TO 23: PRINT "                                        ";: NEXT 
  37. 510  NORMAL : FOR I = 3 TO 21: VTAB I: HTAB 3: PRINT "                                    ";: NEXT 
  38. 520  VTAB 5: HTAB 7: PRINT "QUESTION # "Q
  39. 530  POKE 33,36: POKE 32,2
  40. 540  VTAB 8: PRINT A$"?": VTAB 11
  41. 550  FOR I = 1 TO 4: PRINT "  ("I")  "A$(I): NEXT 
  42. 560  RETURN 
  43. 600  DATA WHO WAS MORK,RON HOWARD,ROBIN MELTZER,ROBIN WILLIAMS,LEE MAJORS,3
  44. 601  DATA THE JEFFERSONS IS A SPIN OFF OF,GOOD TIMES,ALL IN THE FAMILY,I LOVE LUCY,MARY TYLER MOORE,2
  45. 602  DATA WHO IS NEVER SEEN ON RHODA,CHARLIE,JONATHAN THE BELLHOP,CARLTON,NATHAN THE BUTLER,3
  46. 603  DATA WHO WAS THE FIRST 'FLO',JANIS JOPLIN,MARY TYLER MOORE,LINDA LAVIN,POLLY HOLIDAY,4
  47. 604  DATA WHAT WAS CAROL BURNETT'S SOAP SPOOF,GENERALLY HOSPITABLE,AS THE BRISKET TURNS,AS THE STOMACH TURNS,ALL MY BRATS,3
  48. 605  DATA WHICH TWO STARS HAVE BEEN HONORED BYPOSTAGE STAMPS,WILL ROGERS & W.C. FIELDS,BOB HOPE & JOHN WAYNE,JOHN WAYNE & CHARLIE CHAPLIN,LUCILLE BALL & RUDY VALENTINO,1
  49. 606  DATA MICHAEL LANDON WAS WHICH MONSTER    (IN 1957),FRANKENSTEIN,WEREWOLF,DRACULA,THE BLOB,2
  50. 607  DATA WHAT DID THE CHINA SYNDROME SEEM TO PROPHESY,THE TWA CRASH IN CHICAGO,THREE MILE ISLAND,THE CUBAN REFUGEES,CHINESE COMMUNISM,2
  51. 608  DATA THE SEVEN PERCENT SOLUTION FEATURED WHAT FAMOUS FICTIONAL PERSON,SHERLOCK HOLMES,ABDUL AL HAZAD,LAZARUS LONG,MOLLY PITCHER,1
  52. 609  DATA WHO WAS THE SEX PISTOLS LEAD SINGER,JONNY ROTTED,SID VICIOUS,JONNY ROTTEN,JOHN BONHAM,2
  53. 610  DATA WHAT SONG DID THE KINKS DO ABOUT    A TRANSVESTITE,THE HIGH PRICE OF FASHION,BOWIE,THIS IS UPSETTING,LOLA,4
  54. 611  DATA HOW MANY HOME RUNS DID AARON HIT    BEFORE HE RETIRED,802,698,755,916,3
  55. 612  DATA WHAT DID ABNER DOUBLEDAY DO,INVENT CHEWING GUM,INVENT BASEBALL,INVENT ALKA SELTZER,INVENT MAGNETIC MEDIA,2
  56. 613  DATA WHAT WERE THE 1980 WINTER OLYMPICS  THREATENED BY,OVERCROWDING,LACK OF SNOW,POLITICAL BOYCOTT,LACK OF EQUIPMENT,2
  57. 614  DATA WHAT THREATENED THE 1973 ACADEMY    AWARDS,BLACK OUT,STREAKER,LATE AWARD DELIVERY,ACTORS FIGHTING,2
  58. 615  DATA WHEN YOU 'CAN'T BELIEVE YOU ATE THE WHOLE THING'  WHAT DO YOU TAKE,PEPTO-BISMOL,GERITOL,BAYER BUFFERED ASPIRIN,ALKA-SELTZER,4
  59. 616  DATA BRUCE JENNER EATS WHAT,CORN CHEX,RICE KRISPIES,COCOA-PUFFS,WHEATIES,4
  60. 617  DATA 'EVITA' TOOK PLACE WHERE,NICARAGUA,ARGENTINA,HUNGARY,BRAZIL,2
  61. 618  DATA WHAT DO MUSLIMS CONSIDER JESUS,A MESSENGER FROM ALLAH,THE EMBODIMENT OF SATAN,THE SAVIOR,MOHAMMED'S GRANDFATHER,1
  62. 619  DATA WHAT DOES BUDDHA MEAN IN SANSKRIT,HE WHO LOVES,HELPER OF MAN,THE ENLIGHTENED ONE,JUST A NAME,3
  63. 620  DATA GERALD FORD'S BUTTONS FOR INFLATION FIGHTING SAID,LET'S TIGHTEN OUR BELTS,WIN,FOND,ASCII EXPRESS,2
  64. 621  DATA WHO WAS ONE OF THE WOMEN WHO TRIED  TO ASSASSINATE FORD,SARA JANE MOORE,PATTY HEARST,LYNETTE LITZKE,MARY JOE FROMME,1
  65. 622  DATA IDI AMIN'S DOWNFALL WAS CAUSED BY   WHAT NATION,UGANDA,SOUTH AFRICA,FRANCE,TANZANIA,4
  66. 623  DATA WHAT WAS MATA HARI'S DUTCH NAME,GERTRUDE LINSCHKY,INGRID HERSER,MARGARETHA ZELLE,BELLE SENGRAFF,3
  67. 624  DATA WHAT WAS THE NAME OF THE SHAH OF    IRAN'S SECRET POLICE,GATAD,MSQ,SAVAK,GESTAPO,3
  68. 625  DATA WHO WAS SON OF SAM,JOHN HINCKLEY,DAVID BERKOWITZ,ANASTASIO DEBOYLE,JOE 'SQUEAKY' FROMME,2
  69. 626  DATA WHO ASSASSINATED LEE HARVEY OSWALD,NOBODY,JACK RUBY,ALFRED GOLDSTEIN,CAPTAIN SACWOLD,2
  70. 627  DATA IN WHICH COUNTRY IS TRANSYLVANIA,HUNGARY,POLAND,ROMANIA,ESTONIA,3
  71. 628  DATA WHO WAS THE LONE RANGER,JACK KEMP,GEORGE NORTHWOOD,FREDERICK KITCHINGS,CLAYTON MOORE,4
  72. 629  DATA WHO WAS THE FIRST DOG IN SPACE,BRUCE,LAIKA,FRECKLES,PYOTR,2
  73. 630  DATA HOW OLD WAS MORRIS WHEN HE DIED,20,6,14,17,4
  74. 631  DATA WHAT WAS PT BARNUMS FAMOUS ELEPH-   ANT'S NAME,TWEETY-PIE,JUMBO,AXION,SAM,2
  75. 632  DATA WHO SPEAKS FOR DONALD THE DUCK,MEL BLANC,JACK KENDLE,CLARENCE NASH,MORRIS KAHN,3
  76. 633  DATA WHAT WAS ABBOT & COSTELLO'S FIRST   'MEET' MOVIE,MEET THE INVISIBLE MAN,MEET CAPTAIN KIDD,MEET THE KEYSTONE COPS,MEET FRANKENSTEIN,4
  77. 634  DATA WHAT WAS THE ONLY WESTERN TO WIN THEACADEMY AWARD,MARTY,IT HAPPENED ONE NIGHT,CIMMARON,GRAND HOTEL,3
  78. 635  DATA WHAT WAS CAPTAIN KIDD'S SHIP,ACROPOLIS,ADVENTURE GALLEY,JOLLY DOG,DAVY JONES,2
  79. 636  DATA WHO WAS BATMAN'S BUTLER,ALFRED,WILFRED,CARLTON,JIVES,1
  80. 637  DATA SPOCK'S MOTHER WAS,JANE,AMANDA,NORA,REATA,2
  81. 638  DATA A GROUP OF MULES IS A,SIEGE,COVERT,BARREN,GAM,3
  82. 639  DATA A GROUP OF HAWKS IS A,HOVER,CLAMOR,PACE,CAST,4
  83. 640  DATA A GROUP OF KITTENS IS A,HORDE,KINDLE,NYE,NEST,2
  84. 641  DATA A BABY OYSTER IS A,CYGNET,COFFISH,FINGERLING,SPAT,4
  85. 642  DATA THE 11TH ANNIVERSARY'S MATERIAL IS,STEEL,IVORY,WILLOW,WOOD,1
  86. 643  DATA THE BEATLES RECORD COMPANY IS,A & M,APPLE,SILVER SET,EPIC,2
  87. 644  DATA WHAT WAS ARCHIE'S NAME FOR THE FIRSTTWO PILOT FILMS,ARCHIE BANKER,ARCHIE BUNKER,ARCHIE JUSTICE,ARCHIE ROBINSON,3
  88. 645  DATA WHAT WAS THE PIGS NAME ON GREEN     ACRES,GEORGE,ARNOLD,ZIFFEL,POKEY,2
  89. 646  DATA WHICH OF THE BANANA SPLITS DIDN'T   WEAR GLASSES,SNORKY,DROOPER,BINGO,FLEAGLE,4
  90. 647  DATA WHO WAS THE BARD OF AYRSHIRE,WILLIAM SHAKESPEARE,ROBERT BURNS,RICHARD LONG,SCOTT ROBINSON,2
  91. 648  DATA WHAT IS E. R. BURROUGHS NAME FOR    MARS,BARSOOM,VIERPLANET,TRANSMUTO,"FT1384J:03X",1
  92. 649  DATA WHICH OF THESE IS A MEMBER OF THE   BEACH BOYS,BRUCE SPRINGSTEEN,JOHN ENTWHISTLE,JOHN BONHAM,AL JARDINE,4
  93. 650  DATA WHAT WAS THE FIRST THING THAT BEN   GUNN WANTED WHEN HE SAW JIM HAWKINS,A GOLD PIECE,A PIECE OF CHEESE,A SHOVEL,A GLASS OF WATER,2
  94. 651  DATA WHICH OF THESE PISTOLS DID BOND USE FOR 15 YEARS,WALTHER PPK 7.65,BERETTA .25,SAVAGE 99F,.45 COLT,2
  95. 652  DATA WHO WAS THE BEATLES' ORIGINAL       DRUMMER,PETE BEST,STU SUTCLIFE,TOMMY MOORE,NORMAN CHAPMAN,1
  96. 653  DATA WHAT WAS TRUTH OR CONSEQUENCES'     BUZZER'S NAME,YAHUDI,CARLTON,BEULAH,JACKSON,3
  97. 654  DATA WHEN IS BIG BIRD'S BIRTHDAY,JANUARY 4,OCTOBER 25,JUNE 18,MARCH 20,4
  98. 655  DATA WHAT IS THE PHYSICIANS SYMBOL,DOUBLE HELIX SNAKE,THE STETHOSCOPE,MORTAR & PESTLE,CADUCEUS,4
  99. 656  DATA THE CAPITAL OF HONG KONG IS,ACCRA,BELMOPAN,GANGTOK,VICTORIA,4
  100. 657  DATA THE CAPITAL OF GABON IS,KINGSTON,PRAIA,LIBREVILLE,REYKJAVIK,3
  101. 658  DATA WHAT IS THE CAPITAL OF SCOTLAND,VALLETTA,VICTORIA,BELFAST,EDINGBURGH,4
  102. 659  DATA THE T IN JAMES T. KIRK STANDS FOR,THOMAS,TIBERIAS,TEXTBOOK,THEBULON,2
  103. 660  DATA WHAT OTHER COMMERCIAL DID THE MONK  WITH THE COPIER DO,GRAPE IN FRUIT OF THE LOOM,MR. CHOLESTEROL,'MADGE',MR. GOODWRENCH,2
  104. 661  DATA WHAT AWARD DID BRUCE LEE WIN IN     HONG-KONG IN 1958,CHA-CHA,TAI-KWONDO,KARATE,CHESS,1
  105. 662  DATA AMERICAN BANDSTAND'S FIRST HOST WAS,BOB HORN,JACK SUTTLE,DICK CLARK,BUN E. CARLOS,1
  106. 663  DATA WHAT WAS THE ENTERPRISE'S FAMOUS    SHUTTLE-CRAFT,COLUMBUS,ENDEAVOR,GALILEO,GIDEON,3
  107. 664  DATA WHO WAS BORN AT THE DAISY HILL PUPPYFARM,MARMADUKE,WILLIAM SHATNER,FRECKLES,SNOOPY,4
  108. 665  DATA WHO WAS FIRST WHITE ENGLISH CHILD   BORN IN THE AMERICAS,DAISY KENT,VIRGINIA DARE,JAMES STANLEY,ARTHUR BOURN,2
  109. 666  DATA WHAT ARE THE MOONS OF MARS,CELESTIA & LUNA,TITAN & ARCTURUS,PHOBOS & DEIMOS,MITOS & DENALARDIS,3
  110. 667  DATA WHAT IS A PERSON WHO COLLECTS POST- CARDS,CRAZY,PHILATELIST,DELTIOLOGIST,PHENOLPTHALIEN,3
  111. 668  DATA WHAT IS EDITH'S MAIDEN NAME,MUDGE,BAINES,SIELY,DESSO,2
  112. 669  DATA WHERE WAS THE OLYMPIC S.W.A.T. TEAM,DIVISION 6,QUARTER 3,FIELD 7,CORPS 10,1
  113. 670  DATA WHAT WAS LILY MUNSTERS MAIDEN NAME,STOKER,AADAMS,SIPPLE,DRACULA,4
  114. 671  DATA WHO CREATED DROODLES,WALT WHITMAN,BOB HORN,ROGER PRICE,M.C. ESCHER,3
  115. 672  DATA HOW MANY PLAYERS ON A ROLLERBALL    TEAM,20,11,6,16,2
  116. 673  DATA HOW MANY WARM UP PITCHES IS A RELIEFPITCHER ALLOWED,8,10,18,3,1
  117. 674  DATA WHAT TWO YEARS DID THE U.S. HAVE    THREE PRESIDENTS,1862 & 1798,1881 & 1841,1920 & 1874,1791 & 1900,2
  118. 675  DATA WHAT IS THE CORRECT SPELLING OF     THIS DONKEY'S NAME,EYORE,EOURE,EEYOUR,EEYORE,4
  119. 676  DATA WHO WAS EMPEROR NORTON,RICE MERCHANT,ASSASSIN,EMPEROR OF MEXICO,NICKNAME FOR DUKE NORTON,1
  120. 677  DATA DID A PLANE EVER CRASH INTO THE     EMPIRE STATE BUILDING,YES,NO,PART OF ONE,BUILDING CRASHED INTO PLANE,1
  121. 678  DATA WHAT WAS EROICA,BACH,BEETHOVEN,MENDEL,GABRIEL,2
  122. 679  DATA HOW LONG WAS THE ENTERPRISE'S       MISSION,6 MONTHS,10 YEARS,2 YEARS,5 YEARS,4
  123. 680  DATA FOIL; SABER; AND ,DETENTE,EPEE,FOIBLE,PIKE,2
  124. 681  DATA WHAT IS WILMA FLINTSTONE'S MAIDEN   NAME,VANDERPYL,SCRUGGS,FLAGGHOOPLE,CRABBE,3
  125. 682  DATA BAMBI'S FRIEND FLOWER WAS A,BUTTERFLY,SKUNK,HORSE,FLOWER,2
  126. 683  DATA WHO SHOT JESSE JAMES,JAMES DEAN,CURLY FAZDAN,BREN BAXTER,ROBERT FORD,4
  127. 684  DATA WHO WAS THE FOURTH MUSKETEER,D'ARTAGNAN,ATHOS,PORTOS,ARAMIS,1
  128. 685  DATA WHAT WAS THE FIRST FRANKENSTEIN     MOVIE,LIFE WITHOUT SOUL,THE EVIL FRANKENSTEIN,FRANKENSTEIN,THE MONSTER,3
  129. 686  DATA WHO COINED THE TERM ROCK AND ROLL,WOLFMAN JACK,ALAN FREED,FRANK MERRIWELL,MACK TEDDLE,2
  130. 687  DATA WHO SHOT BILLY THE KID,JAMES STEWART,DOC HOLLIDAY,JIM STANTON,PAT GARRET,4
  131. 688  DATA THE PINBALL WIZARD IS,JOHNY,DAVE E.,TOMMY,DUCKY,3
  132. 689  DATA WHO WAS THE WALRUS,JOHN,PAUL,GEORGE,RINGO,2
  133. 690  DATA WHO DID POINT OF KNOW RETURN,KANSAS,RUSH,STYX,CHEAP TRICK,1
  134. 691  DATA WHAT COMPANY MADE THE PDP-12,IBM,DEC,T.I.,G.E.,2
  135. 692  DATA WHAT COMMAND STORES ARRAYS ON THE   APPLE,STORE,SAVE,TAPE,DSP,1
  136. 693  DATA WHAT WAS FELIX UNGER'S WIFE'S NAME,GLADYS,GLORIA,GERTRUDE,NANCY,2
  137. 694  DATA AN ANIMATE CLAY STATUE IS A,GRUNDEL,POLTERGEIST,ZOMBIE,GOLEM,4
  138. 695  DATA THE OTHER GORGON BESIDES MEDUSA AND STHENO WAS,ELMIRA,TYTHPION,EURYALE,SINO,3
  139. 696  DATA WHAT WAS THE NAME OF LED ZEPPELIN'S FOURTH ALBUM,IN THROUGH THE OUT DOOR,LED ZEPPELIN IV,ZOSO,HOUSES OF THE HOLY,2
  140. 697  DATA WHERE DID OUR GANG LIVE,CHICAGO,DE MOINES,MANHATTAN,GREENPOINT,4
  141. 698  DATA COMPLETE UNDERSTANDING IS TO,GROK,KEN,ENVELOPE,ABSORB,1
  142. 699  DATA WHO IS THE MOST POPULAR CARTOON     CHARACTER,DONALD DUCK,MICKEY MOUSE,SNOOPY,ORPHAN ANNIE,2